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PAGE ROUTINE 


DECUS Program Library Write-up DECUS No. 8-184 


INTRODUCTION 

Page Routine sets-up into pages, ASCII listings of program and sequentially numbers the pages. 

The output can be a listing on the Teletype and/or punched tape. 

PROGRAM COMMUNICATION 

The program calls a subroutine ASC for binary to BCD Conversion and subroutine TYP for output. 
PROGRAM DESCRIPTION 

The program sets-up a row of dots across the page and six blank lines. It then reads in an ASCII 
tape ignoring blank tape and leader 200 code. When a character greater than 200 is found a flag 
is set so that blank tape or trailer will be recognized. A character is read and output on the 
. Teletype. If a carriage return character is found the line counter is incremented and, if a page 
is full the page counter is incremented. At the end of a page, two blank lines are left, the page 
number is typed, three blank lines left, and a line of dots typed. 

If blank tape or trailer 200 code is found the remainder of the page being listed is left blank, the 
page numbered and a row of dots is printed at the bottom. The program then halts. If the continue 
button is pressed further tape is read and the page numbering continues from the current page number. 
If the program is restarted the page counter is returned to zero. 

OPERATION 

Set-up the starting address at 200 and press LOAD ADDRESS and START. Load the ASCII tape to 
be read into the reader if a tape is required turn on the punch. 

When the tape has been read the program halts. If the next tape is to follow in the same page 
sequence load this tape and press CONTINUE. If the tape to be read is to be listed starting with 
a new sequence of page numbers start the program by setting up its starting address and press 
LOAD ADDRESS and START. 

The program is limited to a maximum of 99 pages. 

To alter length of page change value of LNCT and LNCTS. (Note these are negative numbers). 







/PAG I'M A V 1 0 M i. 0 J T I M r. 
/ISSUE R 

/F wK'IL PATH. MARC 


0 200 

6032 

PGEO 1 * 

rVCC 


0 201 

6046 


TLS 


0202 

136 7 


X Ajj 

DOTCTS 

0203 

3366 


DC A 

DOTCT 

0204 

336? 


DC A 

PGECT 

0205 

4336 


dfc'S 

PGEO 9 

0206 

3360 


PCA 

STFLG 

0207 

7300 

P'GEG2* 

CLA 

CLL 

0210 

1364 


TAD 

Cl.CD 

0211 
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Ji>b 

I LTYP 

0212 

1365 
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DOT 

0213 

4751 
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0214 

2366 


i si 
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0215 
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• - 3 
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TA.D 

DOTCTS 
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DC A 
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Ci.CD 

0221 
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I LTYP 

0222 

1363 
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0223 

4751 
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I LTYP 
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6031 
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0233 
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CLA 

0234 
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0236 
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7450 
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0242 
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POE 08 
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2 37 2 
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TAD 
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/ IM11' IALI SE DOT COUNTER 
/ KERO PAGE COUNTER 

/initialise all lime coomters 

/i.ESET FLAG 

/PET UR CARRIAGE RETURN 
/PET Up DOT 

/IP ROW OF DOTH TYPED ? 

/MO 
/ YES 


/ALL PLANK LIMES AT TOP OF PG. 
/MO 

/rP:S READ ONE CHAR 

/ ‘ OFFER CHAP. 

/IS STFLG SET 

/ MO 
/ YES 

/IS FGEEUF G ? 

/ YES 

/MO CHECK IF 20C 
/IS 2GO 

/MOT 200 IS CHAP CP ? 

/ MO 

/ YES IS I f I MD OF PG# ? 

/MO 

/YES TYPE Cl. 


/READ LF 


/CO.:: ECT MO. OF LIMES BEFORE 
/PAGE MO# ? 

/MO 


OP 
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0263 

1362 

0264 

4 750 

0265 

1364 

0266 

4 75 1 

0267 

1363 

0270 

4751 

0271 

2356 

0272 

526 7 

0273 

4336 

0274 

5 207 

0275 
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0276 

1 370 

027 7 

7 750 

0300 

6226 

0301 

7201 

0302 

3360 

0303 

1361 

0304 

4 751 

0305 

5226 

0306 

1355 

0307 

1372 

0310 

3372 

031 1 

1 363 

0312 

4 751 

0313 

2372 

0314 

5311 

0315 

2362 

0316 

1362 

0317 

4750 

0320 

1 364 

0321 

4 751 

0322 

1363 

0323 

4 751 

0324 

2356 

0 325 

53pp 

0326 

1365 

0 327 

T 751 


0330 2366 

0331 5326 

0332 4336 

0333 3360 

0334 7402 


i 'OU PGrCT 
UES I LASC 
TAiJ CP CD 
O'S [ LTT1 
TAJ.) lm;d 
5 I LT TP 
I 5 £ LFCT3 

ufp .-3 

DPS PGE09 
0' V .J PGE02 

tad pgkbuf 

TAD M200 

7 750 

U>I PGE06 
C L A I/'-c 
OCA STHLG 
TAJ.' PGKBUF 
UPS I LTTl- 
PGE06 

'TAD LFCTS2 

TAD L:\JCT 
OCA LNCT 
TAD LFCD 
O v 5i I LT TP 
IP-: LNCT 
UFP .-3 
IS' PGECT 

tad pgkct 

UPS I LASC 
TAD CliCD 
JWS I LTTP 
TAD LFCD 
U>5 I LTTF 
IP- LTCT3 
DPT .-3 
TAD DOT. 

Or. 3 I LTTP 
IPO DOTCT 
U o. P • — 3 
U-S PGK09 
T'CA STFL6 
MLT 


PGE07 

PGE08. 

UFP 

PGE05 


0335 .6216 

0336 7402 PGE09> 


O'] PGF03 
->Ll 


0337 1373 

0340 3372 

0341 1363 

0342 3352 

0 343 1355 

0344 3354 

0345 1357 

0346 3366 

0347 6736 


3 AD LMCTS 
DCA LNCT 
1 AD LFCTP1 
DC A Li'CTl 
TAD Li* CTS2 
JjCA LF 0 T2 
TAD LFCTS3 
DCA LFCT3 
J'.P I PGE09 


/DATA 


/PF'T UP PT. MO. FOB OP 


/CORRECT MO OF LIMPS AFTEP 
/PAGE MO. ? 

/ MU 

/TrP AH SET ALL LIME COUNTERS 
/RETURN FOR MEET PAGE 

/IS CHAF > 200 ? 

' THI5 IS EGUIv TO SPA SMA CLA 
/ \J0 

/ TES SET S'TFLG 

/OUTPUT A CHAP 

/Sr.i UP TO PRODUCE CORRECT 
/MO. OF BLANK LIMES OM PG. 


/LORhECT MO OF BLANK OP ? 
/ MO 
/ TES 


/ALL LK BKLOiv MO. GOME » 
/ MO 

/TES SET UP ROu OF DOTS 


/ C L E A it' FL A G 


/THIS ROUTINE INITIALISES 
/LIME COUNTERS 
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0431 

LTTP* 

T r- 

0352 

7772 

LFCT1j 

-6 

0353 

7772 
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7776 
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u 
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0 
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0212 

LFCD, 
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0364 

0215 

CRCD* 

. 1 D 

0365 

0256 

DO T .» 


03*6 

7670 

DO 1 C1 * 

-110 

0 36 7 

7670 

DOTCTS, 

-no 

0370 

7600 

M200,. 

-^00 

0371 

7 763 

Ml 5, 

-15 

0372 

7710 

LNCTj 

-70 

0 373 

7710 

LNCTS* 

-70 


0400 

7402 

*400 

ASC> 

HLT 

0401 

324 7 


DOA ASCBUK 
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1245 


TAD SPACE 
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4231 
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ISE SPCT 
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5206 
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3242 
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ASCUli 

DCA ASCBUK 
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1242 
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1240 


TAD 1-260 
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1 24 7 
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TSP 
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04 34 
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TL.S 
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5631 


U-P I T Tf- 

0 4 3 ? 

02 72 

/DATA 

P2 72 > 

7 c- 


/ Sb.T OF Si ACE COUNTER 


/ALL ‘.PACE OP? 

/NiO 

/CLLAP TENS COUNTER 
/RPJLOAD CHAR FOR CONVERSION 


/ALL. TENS HAVE GONE 
/INCREMENT TENS COUNTER 


/SrV JP To PRINT MOST SIG FIG 


/SET UP TO FLINT LEAST SIG PIG 
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0207 

: 3SO3 

0216 


0306 

r Or,< " - 

0226 

i-GhOV 

0275 

: GriG-S 

0303 

: t : £G* 

0336 

• ■ ‘^0 

0440 


0437 
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